home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 44 / CD-ROM 44 / CD-ROM 44.iso / MINIPUB / PROGRAM / PSHEADER.CNF < prev    next >
Encoding:
Text File  |  1995-08-31  |  5.5 KB  |  91 lines
  1. /serifdict where not {
  2. /serifdict 200 dict def serifdict begin
  3. /bd { bind def } bind def /ppsepmode 0 def /ppink 0 def
  4. /ppsetscr /setscreen load def /setscreen{pop pop pop} def
  5. /ppcr false def /ppca false def /pptr 0 def /pptg 0 def /pptb 0 def /pptint 100
  6. def /ppminc 0 def /ppyinm 0 def /ppdc false def /pptrp false def /pptrpf false
  7. def /ppsprd 0 def /ppttr 0 def /setrgbcolor {pprc {ppreclr} if setrgbcolor}
  8. bd /pprc { pptint 100 ne ppcr or ppca or } bd
  9. /ppreclr { ppcr { 2 div add exch 3 mul 5 div add 2.1 div 1 exch sub /ppt exch
  10. def pptr 1 sub ppt mul 1 add pptg 1 sub ppt mul 1 add pptb 1 sub ppt mul 1 add }
  11. { ppca {pop pop pop pptr pptg pptb} if } ifelse pptint 100 ne { 3 {1 sub pptint
  12. mul 100 div 1 add 3 1 roll } repeat } if } def /sco { setrgbcolor } def
  13. /sgco { {setgray}{sco}ifelse } def /sc { scignore {pop pop pop} {3{255
  14. div 3 1 roll}repeat setrgbcolor} ifelse } def /ppbc { 0 index 2 index eq 2 index
  15. 4 index eq and {pop pop 1 exch sub}{pop pop pop 0} ifelse } bd /ppcc { 100
  16. div mul 1 index mul sub } bd /ppci { /ppblk exch def /ppye exch def /ppma
  17. exch def /ppcy exch def ppma ppcy ppminc ppcc /ppma exch def ppye ppma ppyinm
  18. ppcc /ppye exch def ppcy ppma ppye ppblk } bd /pprtc { /ppb exch def /ppg
  19. exch def /ppr exch def ppr ppg ppb ppbc /ppblk exch def 1 ppr sub ppblk sub 1
  20. ppg sub ppblk sub 1 ppb sub ppblk sub ppblk ppdc { ppci } if } bd
  21. /cmyktorgb {3{dup 5 -1 roll add 1 exch sub dup 0 lt{pop 0}if exch}repeat pop}bd
  22. /setcmykcolor where{pop /ppsetcmykcolor /setcmykcolor load def}{/ppsetcmykcolor
  23. {cmyktorgb setrgbcolor}bd }ifelse
  24. /setcmykcolor { ppca ppcr or { cmyktorgb setrgbcolor }{ pptint 100 ne
  25. { 4 {pptint mul 100 div 4 1 roll} repeat }if ppsepmode 0 eq {ppsetcmykcolor}
  26. {3 ppink sub index 5 1 roll 4 {pop} repeat 1 exch sub setgray} ifelse } ifelse
  27. } bd
  28. /sethsbcolor {ppsepmode 0 eq{sethsbcolor}{sethsbcolor currentrgbcolor
  29. setrgbcolor}ifelse}bd
  30. /ppp[ {pprc {ppreclr} if pprtc pop pop pop 1 exch sub setgray}{pprc {ppreclr} if
  31. pprtc pop pop exch pop 1 exch sub setgray}{pprc {ppreclr} if pprtc pop 3 1 roll
  32. pop pop 1 exch sub setgray}{pprc {ppreclr} if pprtc 4 1 roll pop pop pop 1 exch
  33. sub setgray}] bd /ppcs 0 def /ppms 1 def /ppys 2 def /ppbs 3 def
  34. /ppssrgbp {serifdict /ppp get exch get /setrgbcolor exch def } bd
  35. /ppsssp {dup serifdict /ppsa get exch get exch serifdict /ppf get exch
  36. get exch currentscreen 3 1 roll pop pop ppsetscr} bd
  37. /setgray {dup dup setrgbcolor} def
  38. /unpack { /DC 0 def /BC 0 def { DC DataString length ge{exit}if rn /BC exch def
  39. BC 127 le{ /BC BC 1 add def DC 1 DC BC add 1 sub {DataString exch rn put} for }
  40. { /BC BC 255 xor 2 add def rn /pp exch def DC 1 DC BC add 1 sub {DataString exch
  41. pp put} for } ifelse /DC DC BC add def} loop DataString } bd
  42. /ppfill {gsave eofill grestore} bd
  43. /pppp {{rlineto} repeat} bd
  44. end
  45. userdict begin
  46. /stroke { serifdict /pptrp get currentgray 1 ne and { /pplc currentlinecap def
  47. 2 setlinecap currentlinewidth serifdict /ppsprd get add setlinewidth stroke
  48. pplc setlinecap }{ stroke } ifelse } bd
  49. /eofill { serifdict /pptrp get { gsave eofill grestore stroke }{ eofill } ifelse
  50. } bd
  51. /fill { serifdict /pptrp get { gsave fill grestore stroke }{ fill } ifelse
  52. } bd
  53. /pptrapchar { currentpoint /cpy2 exch def /cpx2 exch def /clw currentlinewidth
  54. def 0 setlinewidth moveto false charpath stroke clw setlinewidth cpx2 cpy2
  55. moveto } bd
  56. /show { serifdict /pptrp get { /str 1 string def { str 0 3 -1 roll put
  57. currentpoint /cpy exch def /cpx exch def str show str cpx cpy pptrapchar }
  58. forall }{ show } ifelse } bd
  59. /widthshow { serifdict /pptrp get { 4 1 roll /ch exch def /cy exch def /cx exch
  60. def /str 1 string def { /ch2 exch def str 0 ch2 put currentpoint /cpy exch def
  61. /cpx exch def cx cy ch str widthshow str cpx cpy pptrapchar } forall }
  62. { widthshow } ifelse } bd
  63. /ashow { serifdict /pptrp get { 3 1 roll /ay exch def /ax exch def /str 1 string
  64. def { str 0 3 -1 roll put currentpoint /cpy exch def /cpx exch def ax ay str
  65. ashow str cpx cpy pptrapchar } forall }{ ashow } ifelse } bd
  66. /awidthshow { serifdict /pptrp get { 6 1 roll /ay exch def /ax exch def
  67. /ch exch def /cy exch def /cx exch def /str 1 string def { /ch2 exch def str 0
  68. ch2 put currentpoint /cpy exch def /cpx exch def cx cy ch ax ay str awidthshow
  69. str cpx cpy pptrapchar }forall }{ awidthshow } ifelse }bd
  70. end
  71. /Pscript_Win_Driver_Incr where { pop Pscript_Win_Driver_Incr begin /S /show load
  72. def /W /widthshow load def /A /ashow load def /D /awidthshow load def /K /stroke
  73. load def /L /fill load def /O /eofill load def end } if
  74. /Adobe_Win_Driver_Incr where { pop Adobe_Win_Driver_Incr begin /S /show load
  75. def /W /widthshow load def /A /ashow load def /D /awidthshow load def /K /stroke
  76. load def /L /fill load def /O /eofill load def end } if
  77. /Win35Dict where { pop Win35Dict begin /st /stroke load def /F {/ft ed fm 256
  78. and 0 ne {gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne {SHR gs HC ft
  79. CP fm 1024 and 0 ne {/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}
  80. if}bd
  81. /SB{FC /ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed
  82. /dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1
  83. mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch
  84. y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra
  85. ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra
  86. dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break
  87. add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0
  88. y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL
  89. sl [] 0 setdash st gr}if n/fBE false def}bd
  90. end } if } if
  91.